Chip 2004 April/Chip_2004-04_cd1.bin/software/em/emcal.exe/{app}/emcalc.exe/0/RCDATA/TGEMVFORM/TGEMVFORM.txt

Text File | 2004-01-13 | 11.7 KB | 456 lines

object GemVForm: TGemVForm
  Left = 231
  Top = 191
  Width = 548
  Height = 250
  Caption = 'Variantn� v�po�et soustavy rovnic'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object HSplitter: TSplitter
    Left = 289
    Top = 26
    Width = 2
    Height = 178
    Cursor = crHSplit
    ResizeStyle = rsUpdate
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 540
    Height = 26
    AutoSize = True
    Caption = 'ToolBar'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = GemForm.ImageList
    Indent = 1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 0
      Width = 54
      Height = 22
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object ColCountEdit: TEdit
        Left = 0
        Top = 1
        Width = 28
        Height = 21
        Hint = '���ka sloupc�|Hodnota ���ky sloupc�'
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 4
        ParentFont = False
        TabOrder = 0
        Text = '2'
        OnChange = ColCountEditChange
        OnKeyDown = ColCountEditKeyDown
      end
      object ColCountUpDown: TUpDown
        Left = 28
        Top = 1
        Width = 24
        Height = 21
        Hint =
          'Zm�nit ���ku sloupc�|Nastaven� rovnom�rn� ���ky sloupc� dle zobr' +
          'azen� hodnoty'
        Associate = ColCountEdit
        Min = 1
        Max = 999
        Orientation = udHorizontal
        Position = 2
        TabOrder = 1
        Wrap = False
      end
    end
    object NewToolButton: TToolButton
      Left = 55
      Top = 0
      Action = Soubor_Novy
    end
    object LoadToolButton: TToolButton
      Left = 78
      Top = 0
      Action = Soubor_Otevrit
      Style = tbsDropDown
    end
    object SaveAsToolButton: TToolButton
      Left = 114
      Top = 0
      Action = Soubor_Ulozit
    end
    object ToolButton1: TToolButton
      Left = 137
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object Panel2: TPanel
      Left = 145
      Top = 0
      Width = 52
      Height = 22
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object LColWidthsEdit: TEdit
        Left = 0
        Top = 1
        Width = 26
        Height = 21
        Hint = '���ka sloupc� lev� m��ky|Hodnota ���ky sloupc� lev� m��ky'
        AutoSize = False
        MaxLength = 4
        TabOrder = 0
        Text = '25'
        OnChange = LColWidthsEditChange
        OnKeyDown = LColWidthsEditKeyDown
      end
      object LColWidthsUpDown: TUpDown
        Left = 26
        Top = 1
        Width = 24
        Height = 21
        Hint =
          'Zm�nit ���ku sloupc�|Nastaven� rovnom�rn� ���ky sloupc� dle zobr' +
          'azen� hodnoty'
        Associate = LColWidthsEdit
        Min = 10
        Max = 1600
        Orientation = udHorizontal
        Position = 25
        TabOrder = 1
        Wrap = False
      end
    end
    object SyncToolButton: TToolButton
      Left = 197
      Top = 0
      AllowAllUp = True
      Caption = 'SyncToolButton'
      ImageIndex = 115
      Style = tbsCheck
      OnClick = SyncToolButtonClick
    end
    object Panel3: TPanel
      Left = 220
      Top = 0
      Width = 52
      Height = 22
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 2
      object RColWidthsEdit: TEdit
        Left = 0
        Top = 1
        Width = 26
        Height = 21
        Hint = '���ka sloupc� prav�  m��ky|Hodnota ���ky sloupc� prav�  m��ky'
        AutoSize = False
        MaxLength = 4
        TabOrder = 0
        Text = '80'
        OnChange = RColWidthsEditChange
        OnKeyDown = RColWidthsEditKeyDown
      end
      object RColWidthsUpDown: TUpDown
        Left = 26
        Top = 1
        Width = 24
        Height = 21
        Hint =
          'Zm�nit ���ku sloupc�|Nastaven� rovnom�rn� ���ky sloupc� dle zobr' +
          'azen� hodnoty'
        Associate = RColWidthsEdit
        Min = 10
        Max = 1600
        Orientation = udHorizontal
        Position = 80
        TabOrder = 1
        Wrap = False
      end
    end
    object ToolButton2: TToolButton
      Left = 272
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object GenerovatToolButton: TToolButton
      Left = 280
      Top = 0
      Hint =
        'Naplnit bu�ky lev� m��ku daty|Napln�n� vektor� prav�ch stran vy' +
        'generovan�mi n�hodn�mi ��sly'
      Action = Data_Generovat
    end
    object LogToolButton: TToolButton
      Left = 303
      Top = 0
      Action = Vypocet_UkladatHistorii
      AllowAllUp = True
      Style = tbsCheck
    end
    object RunToolButton: TToolButton
      Left = 326
      Top = 0
      Action = Vypocet_Spustit
    end
    object StopToolButton: TToolButton
      Left = 349
      Top = 0
      Action = Vypocet_Prerusit
    end
    object ResultCheckToolButton: TToolButton
      Left = 372
      Top = 0
      Action = Reseni_KontrolaVysledku
    end
    object ToolButton3: TToolButton
      Left = 395
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object SaveSolutionToolButton: TToolButton
      Left = 403
      Top = 0
      ImageIndex = 15
    end
    object ExportToExcelToolButton: TToolButton
      Left = 426
      Top = 0
      ImageIndex = 16
    end
    object CopyToClipboardToolButton: TToolButton
      Left = 449
      Top = 0
      ImageIndex = 5
    end
    object ToolButton5: TToolButton
      Left = 472
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 13
      Style = tbsSeparator
    end
    object HelpToolButton: TToolButton
      Left = 480
      Top = 0
      ImageIndex = 18
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 204
    Width = 540
    Height = 19
    Panels = <
      item
        Text = 'Varianta'
        Width = 80
      end
      item
        Text = '��dek'
        Width = 80
      end
      item
        Text = 'Hodnota'
        Width = 100
      end>
    SimplePanel = False
  end
  object LPanel: TPanel
    Left = 0
    Top = 26
    Width = 289
    Height = 178
    Align = alLeft
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvLowered
    Caption = 'LPanel'
    TabOrder = 2
    object LStringGrid: TStringGrid
      Left = 0
      Top = 0
      Width = 289
      Height = 178
      Anchors = [akLeft, akTop, akRight, akBottom]
      ColCount = 2
      DefaultColWidth = 17
      DefaultRowHeight = 17
      RowCount = 3
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowMoving, goColMoving, goEditing, goAlwaysShowEditor, goThumbTracking]
      TabOrder = 0
      OnSetEditText = LStringGridSetEditText
      OnTopLeftChanged = LStringGridTopLeftChanged
      ColWidths = (
        17
        17)
      RowHeights = (
        17
        16
        17)
    end
  end
  object RPanel: TPanel
    Left = 291
    Top = 26
    Width = 249
    Height = 178
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'RPanel'
    TabOrder = 3
    object RStringGrid: TStringGrid
      Left = 0
      Top = 0
      Width = 248
      Height = 178
      Anchors = [akLeft, akTop, akRight, akBottom]
      ColCount = 2
      DefaultColWidth = 17
      DefaultRowHeight = 17
      RowCount = 3
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goColMoving, goEditing, goAlwaysShowEditor, goThumbTracking]
      TabOrder = 0
      OnEnter = RStringGridEnter
      OnExit = RStringGridExit
      OnTopLeftChanged = RStringGridTopLeftChanged
      RowHeights = (
        17
        16
        17)
    end
  end
  object ActionList: TActionList
    Images = GemForm.ImageList
    OnUpdate = ActionListUpdate
    Left = 64
    Top = 50
    object Soubor_Novy: TAction
      Category = 'Soubor'
      Caption = '&Nov�'
      Hint =
        'Nov� v�po�tov� varianty|Vytvo�en� mno�iny vektor� prav�ch stran ' +
        'soustavy rovnic'
      ImageIndex = 0
      OnExecute = Soubor_NovyExecute
    end
    object Soubor_Otevrit: TAction
      Category = 'Soubor'
      Caption = '&Otev��t...'
      Hint =
        'Otev��t variantn� soubor|Na�ten� variant vektor� prav�ch stran r' +
        'ovnic ze souboru'
      ImageIndex = 1
      OnExecute = Soubor_OtevritExecute
    end
    object Soubor_Ulozit: TAction
      Category = 'Soubor'
      Caption = '&Ulo�it'
      Hint =
        'Ulo�it variantn� soubor|Ulo�en� variant prav�ch stran soustavy r' +
        'ovnic do souboru'
      ImageIndex = 2
      OnExecute = Soubor_UlozitExecute
    end
    object Data_Generovat: TAction
      Category = 'Data'
      Caption = '&Generovat'
      Hint =
        'Naplnit varianty n�hodn�mi ��sly|Napln�n� vektor� prav�ch stran ' +
        'vygenerovan�mi n�hodn�mi ��sly'
      ImageIndex = 9
      OnExecute = Data_GenerovatExecute
    end
    object Vypocet_UkladatHistorii: TAction
      Category = 'Vypocet'
      Caption = '&Ukl�dat hostorii v�po�tu'
      Hint =
        'Ukl�dat historii v�po�t�|Ukl�d�n� historie v�po�t� do okna a p��' +
        'padn� i do souboru'
      ImageIndex = 11
      OnExecute = Vypocet_UkladatHistoriiExecute
    end
    object Vypocet_Spustit: TAction
      Category = 'Vypocet'
      Caption = 'Spustit v�po�et'
      Hint = 'Spustit v�po�et|Spu�t�n� variantn�ho v�po�tu soustavy rovnic'
      ImageIndex = 12
      OnExecute = Vypocet_SpustitExecute
    end
    object Vypocet_Prerusit: TAction
      Category = 'Vypocet'
      Caption = '&P�eru�it v�po�et'
      Hint = 'P�eru�it v�po�et|P�eru�en� v�po�tu'
      ImageIndex = 14
      OnExecute = Vypocet_PrerusitExecute
    end
    object Reseni_KontrolaVysledku: TAction
      Category = 'Reseni'
      Caption = '&Kontrola v�sledk�'
      ImageIndex = 50
      OnExecute = Reseni_KontrolaVysledkuExecute
    end
    object Reseni_UlozitDoSouboru: TAction
      Category = 'Reseni'
      Caption = '&Ulo�it  do souboru...'
      Hint =
        'Ulo�it v�sledky do souboru|Ulo�en� variantn9ch vektor� �e�en� so' +
        'ustavy rovnic do souboru'
      ImageIndex = 15
      OnExecute = Reseni_UlozitDoSouboruExecute
    end
    object Reseni_ExportDoMsExcel: TAction
      Category = 'Reseni'
      Caption = '&Export do MS Excel'
      Hint =
        'Export v�sledk� do se�itu MS Excel|Vyexportov�n� v�sledk� varian' +
        'tn�ch v�po�t� do se�itu MS Excel'
      ImageIndex = 16
      OnExecute = Reseni_ExportDoMsExcelExecute
    end
    object Reseni_KopirovatDoSchranky: TAction
      Category = 'Reseni'
      Caption = '&Kop�rovat do schr�nky'
      Hint =
        'Kop�rovat v�sledky do schr�nky|Kop�rov�n� v�sledk� variantn�ch v' +
        '�po�t� do schr�nky Windows'
      ImageIndex = 5
      OnExecute = Reseni_KopirovatDoSchrankyExecute
    end
  end
end